home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 34 / CD Expert nº 34.iso / DATA / video / SMK1.dir / 00006_Script_6 < prev   
Text File  |  1998-05-25  |  424b  |  19 lines
  1. on exitFrame
  2.   --1280 x 1024
  3.   -- play full-screen 
  4.   
  5.   set smk=new(xtra "smacker")
  6.   SmackSetDisplayMode(smk,4)
  7.   SmackOpen(smk,(the pathname)&"xtras\video.smk",1,0)
  8.   SmackSetPosition smk,-330,-278
  9.   SmackSetInterfaceKeys(smk,"\e\s\m")
  10.   SmackPlayLooped(smk,1)
  11.   set lastkey=SmackGetLastKey(smk)
  12.   SmackClose(smk)
  13.   
  14.   set smk=0
  15.   quit
  16.   --  updatestage
  17.   If lastkey="\e" then quit
  18.   go to the frame
  19. end